home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 November / Ahoy_Magazine_85-11_1985_Double_L.d64 / strictly random (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  303b  |  13 lines
  1. 0 print"[147]":poke53280,0:poke53281,6:poke646,1
  2. 1 rem
  3. 2 rem rupert report #23:monkey business
  4. 3 rem     >> strictly random  <<
  5. 4 rem
  6. 5 print"simulate a monkey at a normal"
  7. 6 print"'one key per character'"
  8. 7 print" typewriter keyboard."
  9. 8 rem
  10. 10 a$=" abcdefghijklmnopqrstuvwxyz"
  11. 20 n=27*rnd(0)+1 : print mid$(a$,n,1);
  12. 30 goto 20
  13.